home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vbpdem / demo.frm < prev    next >
Text File  |  1995-12-05  |  3KB  |  84 lines
  1. VERSION 2.00
  2. Begin Form DEMO_Printer_Handler 
  3.    Caption         =   "Printer Handler Routine - ver 1.0 Dated July 5 1991"
  4.    ClientHeight    =   4965
  5.    ClientLeft      =   1350
  6.    ClientTop       =   1560
  7.    ClientWidth     =   7425
  8.    Height          =   5370
  9.    Left            =   1290
  10.    LinkMode        =   1  'Source
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   4965
  13.    ScaleWidth      =   7425
  14.    Top             =   1215
  15.    Width           =   7545
  16.    Begin CommandButton Command2 
  17.       Caption         =   "QUIT"
  18.       Height          =   615
  19.       Left            =   4200
  20.       TabIndex        =   2
  21.       Top             =   4080
  22.       Width           =   2655
  23.    End
  24.    Begin CommandButton Command1 
  25.       Caption         =   "Run Demo"
  26.       Default         =   -1  'True
  27.       Height          =   615
  28.       Left            =   480
  29.       TabIndex        =   1
  30.       Top             =   4080
  31.       Width           =   2655
  32.    End
  33.    Begin Label Label3 
  34.       Caption         =   "I release this routine into the PUBLIC DOMAIN without any actual or implied warrenties. Use it at your own risk. "
  35.       Height          =   495
  36.       Left            =   360
  37.       TabIndex        =   4
  38.       Top             =   3360
  39.       Width           =   6495
  40.    End
  41.    Begin Label Label4 
  42.       Caption         =   "This routine can be easily modifed to print memory variables or text files outside of the current sub-directory. Have fun and let me know if you find it useful -  Ed Obeda - CompuServe 72537,163"
  43.       Height          =   855
  44.       Left            =   480
  45.       TabIndex        =   5
  46.       Top             =   2280
  47.       Width           =   6375
  48.    End
  49.    Begin Label Label2 
  50.       Caption         =   "The output will be broken into pages, with headers for each page. A cancel button is also available if the user wishes to ABORT the print job.                  "
  51.       Height          =   615
  52.       Left            =   480
  53.       TabIndex        =   3
  54.       Top             =   1440
  55.       Width           =   6615
  56.    End
  57.    Begin Label Label1 
  58.       Alignment       =   2  'Center
  59.       Caption         =   "This DEMO will print the supplied file P.TXT to the Default Printer."
  60.       FontBold        =   -1  'True
  61.       FontItalic      =   0   'False
  62.       FontName        =   "MS Sans Serif"
  63.       FontSize        =   12
  64.       FontStrikethru  =   0   'False
  65.       FontUnderline   =   0   'False
  66.       Height          =   735
  67.       Left            =   120
  68.       TabIndex        =   0
  69.       Top             =   360
  70.       Width           =   7215
  71.    End
  72. End
  73. Sub Command1_Click ()
  74.     DocName = "pp.txt"
  75.     printerACTION.Show MODELESS
  76.     Unload printerACTION
  77.  
  78. End Sub
  79.  
  80. Sub Command2_Click ()
  81.     End
  82. End Sub
  83.  
  84.